module dateutils
contains

function datetimestr()
   implicit none
   character(len = 20) :: datetimestr
   character(len = 10) :: date, time
   call date_and_time(date = date, time = time)
   write(datetimestr,"(2A10)") date, time; 
   
   !call date_and_time(values = dt)
   !write(datetimestr, '(2(I2,A1), I4, 1X, 3(BZI2,A1))') dt(3), '/', dt(2), '/', dt(1), &
   !   dt(5), ':', dt(6), ':', dt(7) 
end function datetimestr	 

end module dateutils